﻿<%@page Language="vb" codepage=65001 aspCompat="True" StylesheetTheme="" theme=""%>
<%
dim mmArtRight As new WebNote.FileRight
	With mmArtRight
		Response.write("var FileRight_Upload=" & Lcase(.Upload) & ";"  &  vbcrlf)
		Response.write("var FileRight_FileReName=" & Lcase(.FileReName) & ";"  &  vbcrlf)
		Response.write("var FileRight_FileDelete=" & Lcase(.FileDelete) & ";"  &  vbcrlf)
		Response.write("var FileRight_FolderCreate=" & Lcase(.FolderCreate) & ";"  &  vbcrlf)
		Response.write("var FileRight_FolderReName=" & Lcase(.FolderReName) & ";"  &  vbcrlf)
		Response.write("var FileRight_FolderDelete=" & Lcase(.FolderDelete) & ";"  &  vbcrlf)
		Response.write("var FileRight_Path=""" & .Path & """" & ";"  &  vbcrlf)
	End With
mmArtRight=Nothing
%>